home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 60.zip / BS1 part 60 / Agfa Fonts^5.adf / CSTextInstall < prev    next >
Text File  |  1992-03-12  |  3KB  |  89 lines
  1. ;This "Installer" script will configure the users system to support 
  2. ; the CS(Compugraphic Script) typefaces . 
  3. ; Background:
  4. ; Fountain version 37.10 sets L1 as the default symbol set. To support CS typefaces
  5. ; we need to copy a new version of IF.SS that contains character maps for CS.
  6. ; The new IF.SS files will contain: 
  7. ;        L1 - Amiga Latin 1
  8. ;        GD - Gold Disk
  9. ;        D1 - Series 100
  10. ;        D2 - Series 200
  11. ;        D3 - Series 300
  12. ;        CP - Postscript text
  13. ;        CS - CS Zapf Dingbats
  14. ;        SP - Symbols - Postscript
  15. ;        plus the TD symbol sets, minus Ventura
  16. ;        
  17.  
  18. ; if something goes wrong, reset diskfont variable
  19.  
  20. (onerror (run "setenv env:sys/diskfont SYMSET L1"))
  21.  
  22.  
  23. (message "\n\nThe Agfa Intellifont LaserType CS (Compugrahic Script) typefaces require a special character set."
  24.          " Please refer to the last three pages of the enclosed \"Agfa LaserType CS Installation\" document. "
  25.          " This will help you decide the character set to select."
  26.          )
  27.                           
  28.  
  29.     
  30. ;if the original IF.SS file is installed, copy new file
  31.  
  32.  
  33. (set ifssSize (getsize "fonts:_bullet/if.ss"))
  34.  
  35.  
  36. (if (< ifssSize 1)
  37.    
  38.    (Abort " \"fonts:_bullet/if.ss\" not found."
  39.           " Please execute \"IntellifontSystemChek\""
  40.    )        
  41. )
  42.  
  43.  
  44.  
  45. (if (> 18000 ifssSize)
  46.     
  47.    (
  48.     (run "copy fonts:_bullet/if.ss to fonts:_bullet/if.ss.org")  
  49.     (copyfiles
  50.                       
  51.             (prompt "Copying a new symbol set map to support"
  52.             " Agfa LaserType CS (Compugraphic Script)"
  53.             )
  54.             
  55.             (help "To take advantage of the Postscript characters"
  56.              " in the Agfa LaserType CS (Compugrahic Script) collection, we need to add a new symbol set. This symbol set contain the following character maps:\n"
  57.              "     \n"
  58.              "     PS - Postscript \n"
  59.              "\n"
  60.              " Refer to the enclosed document for print sample of the above Symbol set."
  61.              )
  62.             (source "df0:Intellifontfiles")
  63.             (dest "fonts:_bullet")
  64.             (pattern "if.ss")
  65.             (files)
  66.             (confirm)
  67.      )
  68.    )
  69. )            
  70.  
  71. ; set system variable
  72.  
  73. (run "setenv env:sys/diskfont SYMSET CP")
  74.  
  75.  
  76.  
  77. (message "\n\nThe installer will now execute Fountain for you.\n"
  78.         " \nNOTE: This installer only works with LaserType "
  79.         " CS Fonts. You MUST only install LaserType CS typefaces," 
  80.         " then exit from Fountain, and finish the Install !!! " 
  81. )
  82. (run "sys:system/fountain")
  83.  
  84. (run "setenv env:sys/diskfont SYMSET L1")
  85.  
  86. (trap 12345 (run "setenv env:sys/diskfont SYMSET L1"))
  87.  
  88. (exit)
  89.